Make next page hint more consistent
authorJustin Burkett <justin@burkett.cc>
Sat, 21 Dec 2019 18:57:34 +0000 (13:57 -0500)
committerJustin Burkett <justin@burkett.cc>
Sat, 21 Dec 2019 18:57:34 +0000 (13:57 -0500)
which-key.el

index f3334e128d96191c47adf7c94f650efc605bb45c..1da0cfb019e153957a77ddef5238f82e9eeb1f11 100644 (file)
@@ -2049,9 +2049,10 @@ max-lines max-width avl-lines avl-width (which-key--pages-height result))
   (let* ((paging-key (concat prefix-keys " " which-key-paging-key))
          (paging-key-bound (eq 'which-key-C-h-dispatch
                                (key-binding (kbd paging-key))))
+         (key (key-description (vector help-char)))
          (key (if paging-key-bound
-                  which-key-paging-key
-                (key-description (vector help-char)))))
+                  (concat key " or " which-key-paging-key)
+                key)))
     (when which-key-use-C-h-commands
       (which-key--propertize (format "[%s paging/help]" key)
                              'face 'which-key-note-face))))